VBA代码大全032：如何用vba提取除去路径前缀和后缀名或扩展名的文件名称？

您所在的位置：网站首页 › excel vba 正则提取 › VBA代码大全032：如何用vba提取除去路径前缀和后缀名或扩展名的文件名称？

VBA代码大全032：如何用vba提取除去路径前缀和后缀名或扩展名的文件名称？

2023-03-21 03:12| 来源: 网络整理| 查看: 265

VBA代码大全032：如何用vba提取除去路径前缀和后缀名或扩展名的文件名称？ 2018年8月1日作者：水星Excel 10,001 次浏览暂无评论

在用vba遍历文件夹中的文件时，经常需要提取文件的名称，但是获得文件名称往往都带有文件后缀名或扩展名，如以下所示：

abc.xlsx test.xlsx a.xls

或者类似如下的带有路径的完整文件名：

C:\Users\Administrator\Desktop\abc.xlsx C:\Users\Administrator\Desktop\test.xlsx C:\Users\Administrator\Desktop\a.xls

而我们往往需要的是如下所示的文件名：

abc test a

这时候可以使用如下的自定义函数来提取纯的文件名：

Function GetFileName(ByVal sName As String) '获取纯文件名的自定义函数 'QQ1722187970 Dim sTemp As String sTemp = sName '判断后缀名分隔符.的位置 iPos = Len(sTemp) - VBA.InStr(1, VBA.StrReverse(sTemp), ".") If iPos 0 Then sTemp = Mid(sTemp, 1, iPos) End If '判断路径分隔符\的位置 iPos = VBA.InStr(1, sTemp, "\") If iPos 0 Then '反转后好取字符 iPos = VBA.InStr(1, VBA.StrReverse(sTemp), "\") sTemp = Mid(VBA.StrReverse(sTemp), 1, iPos - 1) sTemp = VBA.StrReverse(sTemp) End If GetFileName = sTemp End Function 其它相关文章推荐：如何用shell.application对象访问操作文件夹？如何让电脑开机自动打开指定的excel文件？如何在vba中返回单元格Range对象的地址？如何用C#读取任意一个文件的字节流？如何在vba中用ado访问各种不同的数据源？如何用vba操作Outlook发邮件？分类 : VBA , VBA代码大全 , 文件、文件夹、目录标签 : vba提取不含后缀的文件名 , 后缀名 , 扩展名 , 文件名称 , 路径

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

VBA代码大全032：如何用vba提取除去路径前缀和后缀名或扩展名的文件名称？

VBA代码大全032：如何用vba提取除去路径前缀和后缀名或扩展名的文件名称？

今日新闻

推荐新闻